home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / FULLPATH.M < prev    next >
Encoding:
Text File  |  1990-01-19  |  378 b   |  22 lines
  1. MODULE TP;
  2.  
  3. (*$E MOS *)
  4. FROM Directory IMPORT MakeFullPath, DefaultPath;
  5. FROM Terminal IMPORT WriteLn, WriteString, Read;
  6. FROM Strings IMPORT String;
  7.  
  8. VAR ch: CHAR;
  9.  i: INTEGER;
  10.  s: String;
  11.  
  12. BEGIN
  13.   WriteString (DefaultPath ());
  14.   WriteLn;
  15.   MakeFullPath (s, i);
  16.   WriteString (DefaultPath ());
  17.   WriteLn;
  18.   WriteString (s);
  19.   WriteLn;
  20.   Read (ch)
  21. END TP.
  22.